# -*- perl -*-

# t/09-path.t - check package vars

use strict;
use warnings;
use Test::Simple tests=>2;

no warnings 'once';

BEGIN {
	(-d 'tmp') || mkdir('tmp') || die;
}

package Foo::Bar;
use IPC::Lite Path=>'tmp/test.db', qw(%status);

package main;

ok(tied(%Foo::Bar::status)->path() eq 'tmp/test.db');
ok(!defined(tied(%Foo::Bar::Foo::Bar::status)));
